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PPPPPPPP AA AA SSSSSS TT RRRRRRRR UU UU NN NN NN CC AA Ab 
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PP AAAAAAAAAA S$ TT RR RR UU UU NN NNNN CC AAAAAAAAAA 
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PP AA AA SSSSSSSS TT RR RR UUUUUUUUUU NN NN cccccccc AA Aa . 
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LL I] SS 
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14-Sep-1984 12:51: PASRILY SRCIJPASTRUNCA. 8 2:1 (1) 


MODULE PASSTRUNC Bryye Rosteente procedure’ 


! File: PASTRUNCA.B32 Edit: SBL1003 
BEGIN 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


'* THIS 7 rn 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
; NLY CORDANCE HE SOF CH 
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te omponat iin. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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0 

0 '++ 

4 FACILITY: Pascal Language Support 

90 ; ABSTRACT: 

00 i This module contains PASS$TRUNCATE, which implements the 
+i VAX-11 Pascal TRUNCATE procedure. 

3 : ENVIRONMENT: User mode - AST reentrant 

Bee AUTHOR: Steven B. Lionel, CREATION DATE: 29-January-1982 

004 ! MODIFIED BY: 

0044 i 1-001 = Original. SBL 29-January-1982 

0045 i 1-002 = Set FABSV_TEF after truncate. SBL 12-Jul-1982 

Bpee it 1-003 = Don't do STRUNCATE if not a file oriented device. SBL 29-July-1982 


ere ee ree 


y's 
PASSTRUNCATE TRUNCATE procedure 16-Sep-1984 09:54 AX-11 Bliss-32 V4.0-74 Page 
5-003 Declarations 1o= 88-1 3be 96:09:35 PASRTL. RCIPASTRUNCA.B 2:1 . 
; 0 0049 1 XZSBITL ‘Declarations’ 
3 1 050 1! 
3 ¢ 051 1 ! PROLOGUE DEFINITIONS: 
3 b2¢ 1! 
; 4 0055 «1 
: 22 Oo38 ; REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 
3 ef 8133 1! 
3 8 120 1 ! TABLE OF CONTENTS: 
; 59 0121 1! 
oo ae 01 ¢ 1 
: 61 1 1 FORWARD ROUTINE 
; o¢ : 2 : PASSTRUNCATE: NOVALUE; ' Do a TRUNCATE 
; 6 0126 1! 
4 65 pise 1 ! MACROS: 
; 66 0128 1! 
Z 67 61% 1! NONE 
; ww 0130 1! 
H 69 0131 1 ! EQUATED SYMBOLS: 
; O18 1! 
Bees 0133 1! NONE 
2. 0134 1! 
: 73 0135 1 ! FIELDS: 
: 74 0136 1! 
; 0137 1! NONE 
: 76 0138 #1! 
ou > Be 0139 1 ! OWN STORAGE: 
3 78 0140 1! 
3 79 0141 1! NONE 


5 
PASSTRUNCATE RUNCATE procedure 1e-se -1984 02:09:54 AX-11 Bliss-32 V4.0-74 
9008 ASSTRUNCATE = TRUNCATE procedure amt aet 1 95:09:25 PASRTL. REIPASTRUNCA- 69251 
He 1 ZSBTTL ‘PASSTRUNCATE = TRUNCATE procedure’ 
¢ GLOBAL ROUTINE PASSTRUNCATE ( q 
8 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
Be OR ! Unwind address if error 
5 ): NOVALUE = 
86 
87 + 
58 FUNCTIONAL DESCRIPTION: 
90 PASSTRUNCATE implements the VAX-11 Pascal TRUNCATE procedure. It 
91 deletes the current component and all following components from the 
3 file and enters Generation mode. 
Be CALLING SEQUENCE: 
38 CALL PASSTRUNCATE (PFV.me.r C, ERROR.j.rJ) 
« FORMAL PARAMETERS: 
0 PFV - The Pascal File Variable (PFV) passed by reference. 
1 The structure of the PFV is defined in PASPFV.REQ. 
¢ ERROR - Optional. If specified, the address to unwind to 


if an error occurs. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

FABSV_TEF = 1 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

Places file in Generation mode 
SIGNALLED ERRORS: 


a 


AOE WN 0 OONOAUES WN —“OVOONOUESWN—O0OO~n 


FILNOTOPE = File not open : : ; 
FILNOTSEQ = File is not sequential organization 
FILNOTINS = File is not in Inspection mode F 
GENNOTALL = Generation mode is not allowed for READONLY file 
TRUNOTALL = TRUNCATE is not allowed on a shared file 
ERRDURTRU = Error during TRUNCATE 
BEGIN 
LOCAL : 
FCB: REF $PASSFCB_CONTROL_BLOCK, ! File control block 


felelelelelelelelelelelelelelelelelelelelelelelelelelalelelelelelelelelelololelelalelelelelelelolel ole ele elo oo Mr] 
ed cee ce ee cd aD ce ce ce ce cD cee ce ea ce cae ce ae a a ae cae a ce a ce ca cee a ce ce cee ce ce ee ee ec ee ee ee ee a ed oe eae eB od ed oD oD ed oD 


OOOO OOOO OW W000 00 09 09 09 09 SI NIN SINS NN SN SA PAA AAA AAA MMT 
DNA MAE WN $0 OO NAUE WN 0 ODNOAUE WIN $0 ODNOA NEWER "OOD NOUESWWN"OOONOUF WP 


RONONPINDIN PO OP PO sO ss ss PP SP MS SS SS SS SP Ht SS YH SS SS SS Ss Ss SS SS YS SS OS 


ee ee ee ee ee ee ee ee ee ee ee ee 
™~ 


PFV_ADDR: VOLATILE, ! Enable argument 


ee ed et ee 


ao 
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c- 
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TE = TRUNCATE procedure 


Coon WN OS DONA VEN (OC DONOAUE WN O ODNAUESWN (OO DNAUESWN OOD 
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1 1: 


UNWIND ACT: VOLATILE, ; 


bl t 
ERROR_ADDR: VOLATI! abie argumen 


H 5 
rocedure 16-Sep-1984 02:09:54 AX-11 Bliss-32 V4.0- 
1o=808= 138s 3:9 57 
En 
Enable argument 


BIND 
RAB = FCB: REF BLOCK C, BYTE] ! RMS RAB 
FAB = FCB: REF SPASSFAB_FCB_STRUCT; i RMS FAB 
ILTIN 
ACTUAL COUNT; 
ENABLE 


L 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 
= - hatte () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 


14 
Set PFV address enable argument. 


PFV_ADDR = PFV CPFVSR_PFV); 


4 
Validate and lock PFV 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


1+ 
Set unwind action to unlock file. 


UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 
4 


Resolve lazy lookahead, if any. 


IF NOT .PFV CPF VS$V_VALIDJ 
PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


+ 
: Verify that the file is open. 


IF NOT .PFV CPF VS$V_OPEN] 
SPASSIO_ERROR (PASS$S_FILNOTOPE,0); 


'¢ 
Verify that the file is in Inspection mode. 


IF NOT .FCB CFCBS$V_INSPECTION) 
THEN 


PASRTL.SRCJPASTRUNCA 


5 
PASSTRUNCATE RUNCATE precedure 18-Sep-1984 96:09:28 AX-1 
1-003 ASSTRUNCATE = TRUNCATE procedure 14-Sep-1984 12:51:57 PASR 


SPASSIO_ERROR (PASS$_FILNOTINS,O); 


aad 
= 


4 
} Verify that Generation mode is allowed for this file. 
IF .FCB CFCBSV_NOWRITEJ 
SPASSIO_ERROR (PASS$_GENNOTALL,0); 
1+ 
Verify that the file is sequential organization 
IF .FAB CFABSB_ORG) NEQ FABS$C_SEQ 
SPASSIO_ERROR (PASS$_FILNOTSEQ,0); 
14 
$ Verify that the file is opened for exclusive access 
' 
§ i ae -FAB CFABSV_NILJ 
§ SPASSIO_ERROR (PAS$_TRUNOTALL,0O); 
Ste 
§ iatt the file is not already at EOF and is file oriented, do the truncate. 
§ ! 
2 gg -FCB CFCBSV_EOFJ) AND .FCB CFCB$V_FOD) 
co SPASSRMS_OP (STRUNCATE (RAB=.RAB)) 
3 SPASSIO_ERROR (PAS$_ERRDURTRU); ! Error during TRUNCATE 
2 
2 
; 


'¢ 
! Set FABSV_TEF so that unused space is deallocated when the file 
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234 ! is closed. 

235 oe 

236 

337 FAB CFABSV_TEF) = 1; 

$35 '¢ 

$79 Reset record buffer pointers 

24 

$48 FCB CFCBS$A_RECORD_BEG) = .RAB CRABSL_UBFI; 

44 FCB CFCBSA-RECORD-CUR] = .FCB CFCBSA_RECORD_BEG); 

45 FCB CFCBSL-RECORD-LEN) = .RAB CRABSW_USZ); 
46 FCB CFCBSA~RECORD-END) = .FCB CFCBSA~RECORD_BEG] + .FCB CFCBSL_RECORD_LENI; 
48 7} 

is 31 ! Set “truncate on put’ bit so that first SPUT will truncate the file. 
50 31 ! This is required for magtapes since RMS won't SPUT to an empty 

251 31 ! magtape file without it. 
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rocedure 
TE = TRUNCATE procedure 


le 
RAB CRABSV_TPT] = 1; 


+ 

' Set Generation mode 

Indicate at EOF 

Cancel previous LOCATE 
Indicate successful operation 
Undefine file buffer 

Unlock the file 


FCB CFCBSV_INSPECTION] = 0; 
FCB FCBSV_GENERATIONJ = 1; 
FCB CFCBS$V_EOF) = 1; 

FCB CFCBS$V_LOCATE) = 0; 

FCB CFCBSL_STATUS) = 0; 

PFV CPFV$V_DFB) = 0; 

PFV CPFVS$V_EOF DEFINED] = 1; 
PFV CPFVS$V_LOCR) = 0; 
RETURN; 

END; 


O0OFC 00000 


55 000000006 “4 5 
5E 8 C 
7E D4 
04 AE 7C 
6D 00D6 CF ODE 
02 6c 91 
04 If 
6E 08 ac 00 
56 04 ac 00 
08 AE 56 D0 
000000006 9 18 
04 AE 1 D 
54 04 A6 43 
06 2 ASE 


SOOoOOoCooooooooo 


oOOoCoooooooooo 
po eo lelelolelololeloeiq) 


WWRMN 2333950 
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+3 AX-11 Oi lege v4.0 
:57 PASRTL.SRCJPAS 


ne 
PASTRUNCA.B52;1 


routine PAS$STRUNCATE 


PAS$STRUNCATE TRUNCATE procedure 
\1-003\ 


PASSTRUNCATE, PAS$$IO_HANDLER 
PASSSVALIDATE_PFV 
PASS$$LOOK_AHEAD 
PASSSSIGNAL, PASSK_F ILNOTOPE 
PAS$K_FILNOTINS 


PAS$K~ TRUNOTALL 
SYSSTRUNCATE, PASSK_ERRDURTRU 


_PASSCODE,NOWRT, SHR, PIC.2 


PASSTRUNCATE, Save R2,R3,R4,R5,R6,R7 


PASSS$SIGNAL, R5 
#8, SP 

ERROR ADDR 
UNWINB_ACT 

12$, (FP) 

(APs, #2 

ERROR, ERROR_ADDR 
PFV, R 

R6, PFV_ADDR 
PASSSVACIDATE_PFV 
#1, UNW 

4(R6), 

2(R4). 2$ 


Kk 5 
PASSTRUNCATE TRUNCATE procedure 16-Sep-1984 09:54 AX-11 Bliss-32 V4.0-74 
1-003 PASSTRUNCATE = TRUNCATE procedure 18-808 - 1 3b 95:09:25 PASRIL SREIPASTRUNCA. B92: 1 
000000006 00 1 9 JSB PASS$$LOOK_AHEAD 
08 64 1D £8 03 2$: BBS #28 (R4)> 4 
7E pA 4 CLRL se 
7E 006 ef 9A O43 MOV ZBL #PASSK_FILNOTOPE, -(SP) 
5 FC OA? 9 0048 3$: MOVAB =4(FCB), R2 
08 4 08 EO O004F BBS wii, (R2), 4$ 
E D4 0093 CLRL = = (SP) 
7E 006 BF 9a 0005 MOVZBL #PASS$K_FILNOTINS, =(SP) 
5 11 00059 BRB § 
08 FB OAT 4 €1 00058 4$: BBC #4, -B(FCB), 5$ 
E pA 006 CLRL = = (§P) 
7E 00G 8F 9A 0006 MOVZ2BL #PAS$K_GENNOTALL, -(SP) 
18 «11 90066 BRB 
61 A? 95 00068 5S: TSTB =: 97 (FCB) 
08 13 00068 BEQL 6$ 
7E D4 0006D CLRL =(SP) 
7E 00G 8F 9A 0006F MOVZBL #PASS$K_FILNOTSEQ, -(SP) 
0B 11 00073 BRB 
OA 58 OAT 05 €0 00075 6$: BBS #5, 91(FCB), 8$ 
7E D4 OOO7A CLRL = = (§P) 
7E 006 8F 9A 0007C MOVZBL #PAS$K_TRUNOTALL, -(SP) 
65 02 FB 00080 7$: CALLS #2, PASSS$SIGNAL 
04 00083 RET 
28 62 OD EO 00084 8s: BBS #13, (R2), 11$ 
24 03 Ae E9 00088 BLBC }§«=E—.—s«w3 (RO), -118 
57 DD O0008C 9S: PUSHL fF 
000000006 00 01 FB 0008E CALLS #1, SYSS$TRUNCATE 
18 50 €8 0009 BLBS  $$STATUS, 
0001825A &F 50 D1 00098 CM°L «=—s« $S$STATUS, #98906 
04 12 0009F B..d 108 
£7 03 A2 €8 OOOA1 BLBS 3(R2), 9$ 
08 50 £8 OOOAS 108: BLBS  $$STATUS, 11$ 
7E 006 BF 9A 000A8 MOVZBL #PAS$K_ERRDURTRU, -(SP) 
65 01 FB OOOAC CALLS #1, PASSSSIGNAL 
04 OOOAF RET 
4B A? 10 88 00080 11$:  BISB2 #16, 75(FCB) 
—E8 A7 24 A? DO 000B4 MOVL  36(FCB), -24(FCB) 
EC A? E8 A? b0 00089 MOVL 334 (FCB). =20(F CB) 
Fa OAT 20 A? 3C 0008 MOV2WL 32(FCB), -12(FCB) 
FO A? 8 AZ FA OA? OC b90¢ ADDL3 -12(FCBS, -24(FCB), -16(FCB) 
04 A? 02 88 OOOCA BISB2 #2, 4(FCB) 
01 A2 08 8A 000C BICB2 #8. 1(R2) 
01 OA 30 88 00D BISB2 #48, 1(R2) 
02 =A 1 BA 00006 BICB2 #1, 2(R2) 
D4 =A? b4 OODA CLRL. -44(FCB) 
02 A 02 BA 000DD BICB2 #2, g(R4) 
02 AG 04 88 000E1 BISB2 #4. 2(R4) 
03 A 80 8F 8A OO0ES BICB2 #128, 3(R4) 
04 OOOEA RET ; 
0000 QOOEB 12$: -WORD Save nothing 
50 08 aC DO OO0ED MOVL CAP), RO 
50 04 AO pO OOF} MOVL  4(RO); RO 
F4 AO OF OOOFS PUSHAB ERROR ADDR 
FB AO OF O00F8 PUSHAB UNWIND ACT 
FC AO OF OO0FB PUSHAB PFV_ADBR 
03 DD OOOFE PUSHL #3 


Ooooooooooooooo 
NNN NNN AWw 
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PASSTRUNCATE yovatk Rt ocedure 
1-003 ASSTR 


TE 
UNC 


of 
000000006 0 


: 277 0338 


1 
78 0339 1 !<BLF/PAGE> 


; Routine Size: 270 bytes, Routine Base: 


TE = TR UNCATE procedure 


- 8H 


PASSCODE + 0000 


as 1984 
~8ep-19 


84 93:99:8 «— RXSae See Spasrhunca 69251 


PUSHL 
MOVQ 
pls 

RET 


SP 
4(AP), =(SP) 
a3, PASS$10_ HANDLER 


1. 5 
PA STRUNCATE TRUNCATE procedure 0-138 3: 99: 34 AX-11 Bliss-32 V4.0 Page 9 PAS 


PASSTRUNCATE = TRUNCATE procedure 19 PASRTL. SRC JPASTRUNCA. "3 2:1 (4) 1=( 
; 3 49 1 END ! End of module PASSTRUNCATE | 
3 2 2 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: PASSCODE 270 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


re a ee RR Symbols -------- Pages Processing | 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28: : ESYSLIBISTARLET .L32;1 9776 12 581 00:01.0 | 
; ~$255$DUA28:CPASRTL.OBJIPASLIB.L32;1 427 97 23 33 00:00.4 

| 
: COMMAND QUALIFIERS 


PLSSS/EMECR OCP FELD, INE TEAL OPT ORE EE) /UOTRACEAL S00 LSS PRS TRU A/ORSOOBIS PRE TRUNCA MSRC$:PASTRUNCA/UPDATE=(ENHS$: PASTRUNCA 


Size: 270 code + 0 data bytes 0( 
Run Time: 00:08.1 
Elapsed Time: 00:23.5 
Lines/CPU Min: $3 7 
Ronenees Pe -aie 17963 
"Y Used: 122 pages 
— ation Complete 
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